home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1991 / 06 / alib / fatal.asm < prev    next >
Assembly Source File  |  1991-08-23  |  435b  |  30 lines
  1.     title    fatal applications exit
  2.     include    asm.inc
  3.  
  4.     public    fatal_app_exit
  5.  
  6.     .const
  7. ertx_fatal        db    'fatal',0
  8.  
  9.     .code
  10.     extn    set_strerror,perror,exit_with_failure
  11.  
  12.  
  13. ;;    fatal app exit
  14. ;
  15. ;    entry    AX    offset of DGROUP error string
  16. ;    note        this function never returns
  17. ;
  18. fatal_app_exit proc
  19.     call    set_strerror
  20.  
  21.     mov    ax,@data
  22.     mov    ds,ax
  23.     lea    si,ertx_fatal
  24.     call    perror
  25.  
  26.     jmp    exit_with_failure
  27. fatal_app_exit endp
  28.  
  29.     end
  30.